home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D06.D64 / 128+ converter (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.8 KB  |  36 lines
  1. 0 REM THIS PROGAM MUST BE USED WITH THE
  2. 1 REM  128 PLUS ROM INSTALLED
  3. 2 REM USE THE 'ESCAPE' KEY TO TOGGLE
  4. 3 REM ON (GREY BORDER) OFF (BLUE)
  5. 4 REM WHEN ON THE '+' KEY PRINTS 'DATA'
  6. 5 REM THE '-' KEY BECOMES DELETE
  7. 6 REM AND THE '.' BECOMES ',' (COMMA)
  8. 7 REM MAKING THE KEYPAD VERY USEFULL
  9. 8 REM FOR ENTERING DATA, LIKE LINES
  10. 9 REM  50-250
  11. 10 BL=20:LN=50:SA=49152
  12. 20 FOR L=0 TO BL:CX=0:FOR D=0 TO 15:READ A:CX=CX+A:POKESA+L*16+D,A:NEXTD
  13. 30 PRINT".";:READA:IFA<>CXTHENPRINT"ERROR IN LINE";LN+(L*10):STOP
  14. 40 NEXTL:SYS49152:NEW
  15. 50 DATA 169,0,133,251,169,232,160,192,32,30,171,120,169,24,141,20, 2013
  16. 60 DATA 3,169,192,141,21,3,88,96,165,197,197,252,208,3,76,49, 1860
  17. 70 DATA 234,201,52,208,25,133,252,165,251,201,0,240,12,169,0,133, 2276
  18. 80 DATA 251,105,13,141,32,208,76,49,234,169,1,76,47,192,201,40, 1835
  19. 90 DATA 240,13,201,43,240,52,201,44,240,91,133,252,76,49,234,133, 2242
  20. 100 DATA 252,120,169,49,141,20,3,169,234,141,21,3,88,104,104,104, 1722
  21. 110 DATA 165,251,201,1,208,15,162,0,189,208,192,157,119,2,232,224, 2326
  22. 120 DATA 8,208,245,134,198,32,11,192,64,0,133,252,120,169,49,141, 1956
  23. 130 DATA 20,3,169,234,141,21,3,88,104,104,104,165,251,201,1,208, 1817
  24. 140 DATA 15,162,0,189,216,192,157,119,2,232,224,3,208,245,134,198, 2296
  25. 150 DATA 32,11,192,64,0,133,252,120,169,49,141,20,3,169,234,141, 1730
  26. 160 DATA 21,3,88,104,104,104,165,251,201,1,208,15,162,0,189,224, 1840
  27. 170 DATA 192,157,119,2,232,224,3,208,245,134,198,32,11,192,64,0, 2013
  28. 180 DATA 20,32,68,65,84,65,32,0,20,20,0,0,0,0,0,0, 406
  29. 190 DATA 20,44,0,0,0,0,0,0,147,13,32,32,32,42,42,42, 446
  30. 200 DATA 32,67,79,77,77,79,68,79,82,69,32,49,50,56,32,80, 1008
  31. 210 DATA 76,85,83,32,75,69,89,80,65,68,32,42,42,42,32,13, 925
  32. 220 DATA 13,32,32,85,83,69,32,18,69,83,67,65,80,69,146,32, 975
  33. 230 DATA 84,79,32,84,79,71,71,76,69,32,85,84,73,76,73,84, 1152
  34. 240 DATA 89,32,79,78,47,79,70,70,13,0,0,0,0,0,0,84, 641
  35. 250 DATA 0,73,76,73,84,89,32,79,78,47,79,70,70,13,0,0, 863
  36.